---
title: "Data Visualizations: Box plots"
author: "Rubén F. Bustillo"
output:
flexdashboard::flex_dashboard:
orientation: columns
source_code: embed
vertical_layout: fill
theme: journal
---
```{r setup, include=FALSE}
# PACKAGES / LIBRARIES:
library(flexdashboard)
library(tidyverse)
library(gapminder)
library(ggthemes)
library(ggthemr)
# DATASET:
gapminder <- gapminder::gapminder
```
Sheet A
====================================================================================
Column
-----------------------------------------------------------------------
### `geom_boxplot()`
```{r}
# DATASET: FDP IN SELECTED COUNTRIES BY CONTINENT IN 2007
grafico_gdppercap <- gapminder %>%
filter(year == 2007) %>%
group_by(continent)
# GGTHEMR THEME: FLAT (More themes: https://rquer.netlify.com/ggplot_themes#themes-a)
ggthemr("flat")
ggplot(grafico_gdppercap, aes(x = continent, y = gdpPercap, fill = continent)) +
geom_boxplot() +
labs(title = "GDP per capita of selected countries by continent",
subtitle = "year: 2007",
x = "",
y = "GDP per capita")
```
### `geom_boxplot(color = "blue")`
```{r}
ggplot(grafico_gdppercap, aes(x = continent, y = gdpPercap, fill = continent)) +
geom_boxplot(color = "blue") +
labs(title = "GDP per capita of selected countries by continent",
subtitle = "year: 2007",
x = "",
y = "GDP per capita")
```
Column
-----------------------------------------------------------------------
### `scale_fill_brewer(palette = "Set2")`
```{r}
ggplot(grafico_gdppercap, aes(x = continent, y = gdpPercap, fill = continent)) +
geom_boxplot() +
scale_fill_brewer(palette = "Set2") +
labs(title = "GDp per capita of selected countries by continent",
subtitle = "year: 2007",
x = "",
y = "GDP per capita")
```
### `scale_fill_brewer(palette = "BuPu")` | `theme(legend.position="none")`
```{r}
ggplot(grafico_gdppercap, aes(x = continent, y = gdpPercap, fill = continent)) +
geom_boxplot() +
scale_fill_brewer(palette = "BuPu") +
labs(title = "GDP percapita of selected countries by continent",
subtitle = "year: 2007",
x = "",
y = "GDP per capita") +
theme(legend.position="none")
```
Column
-----------------------------------------------------------------------
### `geom_boxplot(fill="limegreen", alpha=0.2`
```{r}
ggplot(grafico_gdppercap, aes(x = continent, y = gdpPercap)) +
geom_boxplot(fill="limegreen", alpha=0.2) +
labs(title = "GDP percapita of selected countries by continent",
subtitle = "year: 2007",
x = "",
y = "GDP per capita")
```
### `geom_boxplot(fill="cornflowerblue", color= "darkblue", alpha=0.2, notch = TRUE, notchwidth = 0.5, outlier.color = "firebrick1", outlier.fill = "red", outlier.size = 3)`
```{r}
ggplot(grafico_gdppercap, aes(x = continent, y = gdpPercap)) +
geom_boxplot(fill="cornflowerblue",
color= "darkblue",
alpha=0.2,
notch = TRUE,
notchwidth = 0.5,
outlier.color = "firebrick1",
outlier.fill = "red",
outlier.size = 3) +
labs(title = "GDP percapita of selected countries by continent",
subtitle = "year: 2007",
x = "",
y = "GDP per capita")
```
Sheet B
====================================================================================
Column
-----------------------------------------------------------------------
### `grafico_gdppercap$type=factor(ifelse(grafico_gdppercap$continent=="Europe","A","B"))`
```{r}
grafico_gdppercap$type=factor(ifelse(grafico_gdppercap$continent=="Europe","A","B"))
ggplot(grafico_gdppercap, aes(x = continent, y = gdpPercap, fill = type)) +
geom_boxplot() +
labs(title = "GDP per capita of selected countries by continent",
subtitle = "year: 2007",
x = "",
y = "GDP per capita")
```
### `scale_fill_manual(values = c("cornflowerblue", "firebrick1")) + scale_alpha_manual(values = c(0.6, 0.6))`
```{r}
ggplot(grafico_gdppercap, aes(x = continent, y = gdpPercap,
fill = type,
alpha = type)) +
geom_boxplot() +
labs(title = "GDP per capita of selected countries by continent",
subtitle = "year: 2007",
x = "",
y = "GDP per capita") +
scale_fill_manual(values = c("cornflowerblue", "firebrick1")) +
scale_alpha_manual(values = c(0.6, 0.6))
```
Column
-----------------------------------------------------------------------
### `scale_fill_brewer(palette = "Set2")`
```{r}
```
### `scale_fill_brewer(palette = "BuPu")` | `theme(legend.position="none")`
```{r}
```
Column
-----------------------------------------------------------------------
### `geom_boxplot(fill="limegreen", alpha=0.2`
```{r}
```
### `geom_boxplot(fill="cornflowerblue", color= "darkblue", alpha=0.2, notch = TRUE, notchwidth = 0.5, outlier.color = "firebrick1", outlier.fill = "red", outlier.size = 3)`
```{r}
```